<!--#include file="Ini.asp"-->
<!--#include file="../AspLib/Functions.asp"-->
<!--#include file="FormatarCGCCPF.asp"-->
<!--#include file="FazData.asp"-->

<%
Response.expires = 0

nCONTADOR = TRIM(REQUEST("CONTADOR"))
sOBS = ""

Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open sCo1, sCo2, sCo3

SSQL = "SELECT * FROM DESPESA WHERE CONTADOR = "&nCONTADOR&" AND EXCLUIDO <> 'S'"
Set RS = Conn.Execute(SSQL)

IF NOT RS.EOF THEN
  sOBS = TRIM(RS("OBS"))
END IF
%>

<% = sHEAD %>
<% = sBODY %>

<h1>DESPESAS DOS DIVULGADORES</h1>
    <div id="content">
	<h2>Data: <% = DATE() %></h2>
      <h3>Motivo:</label></h3>
      <% = sOBS%>
    </div>
  </div>
</body>
</html>